home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 April / 64er_Magazin_87-04_1987_Markt__Technik_de.d64 / fractale.bas 1.4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.9 KB  |  94 lines
  1. 10 rem fractals (basic-steuerpgm)
  2. 20 rem v1.4 vom 23.11.1986
  3. 30 rem fuer c64 und vc1541
  4. 40 rem geschrieben von
  5. 50 rem i. camphausen
  6. 60 :
  7. 70 :
  8. 80 :
  9. 100 if a=0 then print"[147]";tab(13);"bitte warten!"
  10. 110 if a=0 then poke55,0:poke 56,96:clr:a=1:load"fractale 9.0",8,1
  11. 120 if a=1 then a=2:load"menuezeile",8,1
  12. 130 if a=2 then a=3:load"biene/maus",8,1
  13. 140 :
  14. 400 rem
  15. 410 rem **************************
  16. 420 rem einsprungsadressen fuer mc
  17. 430 rem **************************
  18. 440 rem
  19. 500 ru=32799
  20. 510 r2=32823
  21. 520 befehl=35115
  22. 530 gin=32995
  23. 540 taste=35601
  24. 550 dir=35617
  25. 560 nlaenge=35887
  26. 570 dloa=35888
  27. 580 dsav=35901
  28. 590 gloa=35924
  29. 600 gsav=35937
  30. 610 :
  31. 620 a1(1)=dl:a1(2)=ds:a1(3)=gl:a1(4)=gs
  32. 630 a2(1)=ru:a2(2)=r2:a2(3)=gin:a2(4)=r2
  33. 640 for i=1 to 6:read ad(i):next i
  34. 650 data 24576,24608,24640,26656,26688,28736
  35. 660 for i=1 to 4:read ue$(i):next i
  36. 670 data " dload "," dsave "," gload "," gsave "
  37. 680 :
  38. 690 :
  39. 1000 rem
  40. 1010 rem *************
  41. 1020 rem hauptprogramm
  42. 1030 rem *************
  43. 1040 rem
  44. 1050 sys 32768
  45. 1060 :
  46. 1070 nr=peek(befehl)-2:if nr>0 then gosub 3000:goto 1070
  47. 1080 gosub 2000:goto 1070
  48. 1090 :
  49. 1100 :
  50. 2000 rem
  51. 2010 rem ************************
  52. 2020 rem up stuetzpunkte eingeben
  53. 2030 rem ************************
  54. 2040 rem
  55. 2050 print:print
  56. 2060 for i=1 to 6
  57. 2070 :  h=0
  58. 2080 :  print"hoehe"i"[157]. stuetzpunkt ";:input h
  59. 2090 :  if abs(h)>30 then print"bitte beachten: -30 <= hoehe <= +30![146]":goto2080
  60. 2100 :  if h<0 then h=256+h
  61. 2110 :  poke ad(i),h
  62. 2120 next i
  63. 2130 sys ru
  64. 2140 return
  65. 2150 :
  66. 2160 :
  67. 3000 rem
  68. 3010 rem ******************
  69. 3020 rem up laden/speichern
  70. 3030 rem ******************
  71. 3040 rem
  72. 3050 print "[147][144]****************************************"
  73. 3060 print "";tab((40-len(ue$(nr)))/2);ue$(nr)
  74. 3070 n$="":input"filename ";n$
  75. 3080 if n$="" then sys r2:return
  76. 3090 if n$="$"then sys dir:gosub 4000:if fe=0 then sys taste:goto 3000
  77. 3100 if nr<3 then n$=chr$(4)+n$
  78. 3110 if nr>2 then n$=chr$(7)+n$
  79. 3120 poke nl,len(n$)
  80. 3130 for i=1 to len(n$):poke 703+i,asc(mid$(n$,i,1)):next i
  81. 3140 sys a1(nr):gosub 4000:if fe<>0 then 3000
  82. 3150 sys a2(nr)
  83. 3160 return
  84. 3170 :
  85. 3180 :
  86. 4000 rem
  87. 4010 rem ***********************
  88. 4020 rem up fehlerkanal abfragen
  89. 4030 rem ***********************
  90. 4040 rem
  91. 4050 open 1,8,15:input#1,fe,fe$,a,b:close 1                    
  92. 4060 print:print fe,fe$:if fe<>0 then sys taste
  93. 4070 return
  94.